home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_88-06_1988_-_de_Side_B.d64
/
mission egg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
14KB
|
418 lines
1 poke53280,0
2 a=a+1:ifa=1thenload"main",8,1
3 poke1202,0:poke1203,0:poke35584,177:poke33023,17:poke1200,0:poke1201,0
4 fori=1to10:n$(i)="cobra soft":hs(i)=1000:next:poke33043,4:goto990
98 poke1039,5:poke1047,7:poke1045,1:poke53265,65:poke1200,0:poke1201,0
100 print"[147][155]";:poke53265,65:poke53280,0:poke53281,13:poke53278,0
102 le=peek(1045)
106 ifle=1then1001
107 ifle=2then2001
108 ifle=3then2051
109 ifle=4then3001
110 ifle=5then3201
111 ifle=6then3101
112 ifle=7then3301
113 ifle=8then4001
114 ifle=9then5001
115 ifle=10then6001
116 ifle=11thenpoke1045,1:poke56325,40:goto100
990 v=53248:pokev+28,1
991 pokev+39,0:poke53285,1
999 poke53248+22,24:poke53282,0:poke53283,8:goto10000
1000 rem bild i
1001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
1002 print"[204][205][206] [161][161][161][161][161][161][182] [149][212][213]
1003 [153]" (NULL) printatnpeekasc ]]]]getgetspc( list# verify(NULL)(NULL)
1004 print"[209][210][211] [153][200][201][203] [161][161][161][161][161][182] [161][161][161][182]
1005 [153]" (NULL)(NULL)(NULL) verify(NULL)(NULL) print]]]]]spc( ]]getspc(
1006 print"[155]# [208] [149][214][215] [153][161][
1007 [153]" verify(NULL)(NULL) (NULL)(NULL)(NULL) printatnpeekasc getgetgetget
1008 print" [149][214][215] [155]# [153][196][198] [155]# [153][200][207][202] ]]][161]
1009 [153]"getgetgetgetgetgetgetabs left$(NULL)asc left$chr$mid$ get
1010 print"[161][]]]][161][ [204][205][206] [204][205][206] [161]
1011 [153]"get[ ]spc( getget(NULL)getgetgetabs (NULL) verify(NULL)(NULL)printget
1012 print"[161][ [149][212][213][153] ]][210]]]][166] [209][210][166][211] [149][214][215][153][161]
1013 [153]"get[ verify(NULL)(NULL) list# ]
1014 print"[153][161][ [155]# # #
1015 [153]"printgetgetgetgetgetgetgetgetgetabs
1016 print"[166][166][166][166][166][166][166][166][166][166] [196][195][198]
1017 [153]" left$right$mid$ verify(NULL)(NULL)
1018 print"[149][212][213] [155]# [153][204][205][206] [149][214][215]
1019 [153]"verify(NULL)(NULL) list# (NULL)
1020 print" [153][193][194][198] [161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][182] [161][161][161][161][161][182]
1021 [153]" left$right$mid$ ]]]]]]]]]]]]]]]]spc( ]]]]]spc(
1022 print" [204][205][206] [155]#
1023 [153]" (NULL) verify(NULL)(NULL) (NULL)(NULL) (NULL)(NULL)
1024 print" [209][210][211] [149][214][215] [214][215] [214][215]":poke1057,10:poke1047,7
1025 print"[155][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220]";:poke49152+999,104
1026 poke55296+999,15
1099 print"";
1100 printspc(30)"[168][220][168][220][168][220][168][220][168][220]";
1101 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
1102 printspc(30)"[168][220][166][151]score[166][155][220]";
1103 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
1104 printspc(30)"[168][220][166][149]00000[166][155][220]";
1105 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
1106 printspc(30)"[168][220][168][220][168][220][168][220][168][220]";
1107 printspc(30)"[220][168][220][168][220][168][220][168][220][168]";
1108 printspc(30)"[168][220][166][166][166][166][166][166][166][220]";
1109 printspc(30)"[220][168][166][166][150]h[166]i[166][166][155][168]";
1110 printspc(30)"[168][220][166][150]score[166][155][220]";
1111 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
1112 printspc(30)"[168][220][166][149]00000[166][155][220]";
1113 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
1114 printspc(30)"[168][220][168][220][168][220][168][220][168][220]";
1115 printspc(30)"[220][168][166][167][170][166][166][166][166][168]";
1116 printspc(30)"[168][220][166][185][175][166][149]0[166][166][155][220]";
1117 printspc(30)"[220][168][166][166][149][171][166][166][166][166][155][168]";
1118 printspc(30)"[168][220][166][166][178][166][149]3[166][166][155][220]";
1119 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
1120 printspc(30)"[168][220][152]jumps[166][149]5[155][220]";
1121 printspc(30)"[220][168][166][166][166][166][166][166][166][168]";
1122 printspc(30)"[168][220][166][166][166][166][166][166][166][220]";
1123 a=peek(1200):b=peek(1201):d=35
1124 z=a*25+b*200
1125 ifz>9999thend=32:goto1128
1126 ifz>999thend=33:goto1128
1127 ifz>99thend=34:goto1128
1128 poke211,d:poke214,5:sys58640:print"[149]"z"";
1129 poke211,d:sys58640:ifd=32then1131
1130 print"[149]0";:goto1132
1131 print"[149][166]";
1132 a=peek(1202):b=peek(1203):d=35
1134 z=a*25+b*200
1135 ifz>9999thend=32:goto1138
1136 ifz>999thend=33:goto1138
1137 ifz>99thend=34:goto1138
1138 poke211,d:poke214,13:sys58640:print"[149]"z"";
1139 poke211,d:sys58640:ifd=32then1141
1140 print"[149]0";:goto1142
1141 print"[149][166]";
1142 a=peek(1039)
1143 poke211,35:poke214,19:sys58640:print"[149]"a"";:print"[157][157][157][149][166]";
1144 a=peek(1047):poke211,37:poke214,21:sys58640
1145 print"[149]"a"":print"[145][145][157][157][157][166]";
1150 poke53265,155
1200 sys25778
1201 a=peek(1039):ifa=0then1203
1202 goto100
1203 a=peek(1200):b=peek(1201):e=peek(1202):f=peek(1203)
1204 sc=sc+(a*25):sc=sc+(b*200)
1205 ifsc>hs(10)then9200
1206 goto10000
2000 rem bild 2
2001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
2002 print" [149][212][213] [153][200][201][202]
2003 [153]"atnpeekascprintatnpeekval str$peekasc verify(NULL)(NULL) (NULL)(NULL) print(NULL)(NULL)(NULL)
2004 print"[200][201][202][153][200][207][202] [200][201][202] [149][214][215] [208] [212][213][153]
2005 [153]"(NULL)(NULL)(NULL)print(NULL)right$(NULL) print(NULL)(NULL)(NULL) str$(NULL)asc (NULL)(NULL)(NULL) verify(NULL)(NULL)
2006 print" [208] [208] [208] [153][200][203][202]
2007 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL) left$chr$mid$ getgetgetgetgetgetgetgetabs
2008 print" [149][212][213] [153][204][205][206] [161][161][]]]]][166]
2009 [153]"verify(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL) (NULL)(NULL)printgetget[verify(NULL)(NULL) (NULL)(NULL)
2010 print"[214][215] [214][215] [209][210][211] [214][215][153][161][161][[149][214][215] [214][215]
2011 [153]"printgetgetgetgetgetgetgetgetgetabs getgetgetgetgetgetget[
2012 print"]]]]]]]][161][ [161][182] [161][161][161][161][161][161][161][
2013 [153]" ]spc( get[ ]]]]]]get[list#
2014 print" #[153][193][195][198] [193][194][198] [161][ [155]# # [149][212][213][153][161][166]
2015 [153]" left$(NULL)mid$ left$(NULL)mid$ getgetgetgetgetabs verify(NULL)(NULL)printget[ atn
2016 print" [204][205][206] [204][205][206] ]]]][161][ [161][161][161][ [200]
2017 [153]"list# (NULL) (NULL) printget[ get[]spc( (NULL)
2018 print" [209][210][211] [209][210][211] [149][212][213] [153][161][ [161][
2019 [153]" verify(NULL)(NULL) print]spc( get[ (NULL)
2020 print" [155]# # # ##[153][161][ [149][212][213]
2021 [153]"pokeicdwait printgetgetgetgetgetgetgetgetgetget[ verify(NULL)(NULL)
2022 print"[151]mnncd[146] abicd[146] ]]]]]]]]]][166]
2023 [153]"mn mmimmnghwait list#poke
2024 print"mnmmn mgh[146]":poke1057,12:poke1047,4
2025 goto1025
2050 rem bild 3
2051 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
2052 print"[194][198] [200][201][202][204][205][199][203][202][193][195][197] [196][194][198] [149][212][213] [153][200][207][202]
2053 [153]"right$mid$ (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)left$right$mid$peekasc left$right$mid$ verify(NULL)(NULL) print(NULL)(NULL)(NULL) list#print
2054 print"[205][202][194][198][208] [193][195][197][208] [204][205][202][201][202] [204][205][206] [193][194][197][208] [193][194][197]
2055 [153]"(NULL)left$right$mid$(NULL)(NULL)left$right$mid$peekascatnpeekright$right$mid$peekval(NULL) list#print left$(NULL)mid$(NULL)(NULL) left$chr$(NULL)
2056 print"[210][204][205][206] [204][205][202][201][201][200][199][202][205][200][201][202][210][196][194][198][204][205][206] [204][205][206]
2057 [153]"list#print (NULL) atnpeekasc(NULL)(NULL)mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)mid$(NULL) left$right$mid$ (NULL) verify(NULL)(NULL)print (NULL)
2058 print" [193][195][197][200][201][202][210][211][208] [208][209][210][211][208] [204][205][206][209][210][211] [149][214][215][153][209][210][211]
2059 [153]" left$right$mid$(NULL)right$(NULL) (NULL)(NULL)(NULL)atnpeekasc (NULL)(NULL)(NULL) (NULL) atnpeekval atnlen
2060 print" [204][201][206] [208] [200][201][202] [155]# [153] [209][210][211] [200][201][202] [200][207]
2061 [153]" (NULL) (NULL)(NULL)(NULL) verify(NULL)(NULL) print(NULL)(NULL)(NULL) atnpeekval (NULL)mid$(NULL) list#print(NULL)(NULL)
2062 print" [209][210][211] [149][214][215] [153] [208] [200][199][202] [208] [208]
2063 [153]"getgetgetgetgetgetgetgetgetabs (NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL) getget[
2064 print"[161][]]]]]][161][ [208] ][161][
2065 [153]"get[verify(NULL)(NULL)(NULL)(NULL) printget[ verify(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)print get[eady.
2066 print"[161][[149][214][215][214][215] [153][161][ [149][214][215] [214][215][153] [161][
2067 [153]"getgetgetgetget[ get[ get[
2068 print"]]]][161][ [161][161][161][161][161][ [193][194][197] [161][161][161][161][161][161][182] ][166]
2069 [153]" get[ ]]]]]spc( left$right$mid$ get[]]]]spc(
2070 print"[149][212][213] [153][161][ [149][212][213][153][204][205][206] [161][ [149][212][213][153]
2071 [153]"verify(NULL)(NULL) print]spc( list# # verify(NULL)(NULL) (NULL) printget[atnpeekval verify (NULL)(NULL)print
2072 print" [161][161][161][161][161][161][161][161][161][161][161][161][161][[200][201][202]
2073 [153]" get[ get[]]]]]]]]]]]spc((NULL)(NULL)(NULL)
2074 print"[155]# [153][161][161][161][161][161][161][161][ [155]# ## # [208]":poke1057,10:poke1047,5
2075 goto1025
3000 rem bild 4
3001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
3002 print" [200][201][202] [200][207][202] [200][207][205] [149][212][213][153]
3003 [153]" (NULL)(NULL)(NULL) atnpeekval (NULL)(NULL)(NULL)atnpeekasc (NULL)(NULL)(NULL) str$lenasc verify(NULL)(NULL)print
3004 print" [208] [155]#[153] [200][199][202] [208] [200][201][202] [208] [200][201][202]
3005 [153]" (NULL)(NULL)(NULL) (NULL)mid$(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)mid$(NULL)
3006 print" [208] [208] [208]
3007 [153]"getgetgetabs (NULL)(NULL)(NULL) verify(NULL)(NULL)print (NULL)(NULL)(NULL) str$lenval (NULL)(NULL)(NULL)
3008 print"]][161][ [149][214][215][153] [200][207][201] [155]#[153]
3009 [153]" get[ getgetgetgetgetgetgetgetgetabs list#print (NULL)(NULL)(NULL) verify(NULL)(NULL)list
3010 print"# ][166] ]]]]]]][153][161][161][[182] [208] [149][214][215][155]
3012 [153]" # verify(NULL)(NULL)print getgetget[ (NULL)(NULL)(NULL)
3013 print" [149][214][215][155] #[153][161][161][161][ [155]#[153]
3014 [153]"getabs getgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetabs
3015 print"][166] ]]]]]][161][]]]]]]]]]]]]]]]]][166]
3017 [153]" list#print get[ pokeabcdadabi i iwait
3018 print" [155]# [153][161][161][161][161][161][161][161][ [151]abi [146]
3019 [153]" ]]]]]]]spc(ab kk ghefkgfkkwait
3020 print"[153][193][194][197] [155]#[151] abii gh[146] efgh[146]
3021 [153]"printleft$right$mid$ pokeab ghwait verify(NULL)(NULL)
3022 print"[153][204][205][206] [155][163][174][163][174][163][174][163][174][163] [153][193][194][198] [149][214][215]
3023 [153]" (NULL) pokeowaitcosfrecosfrecospwait print(NULL)(NULL)(NULL) list# verify(NULL)(NULL)poke
3024 print"[209][210][211] ab gh[146] [208] [149][214][215]
3025 [153]"pokedabi jwait verify(NULL)(NULL)(NULL)(NULL)(NULL) list#
3026 print"[151] gh[146] [155]# [149][214][215]":poke1057,7:poke1047,6
3027 goto1025
3100 rem bild 5
3101 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
3102 print" [161][161][[200][203][202] [149][212][213] [212][213] [153][193][195][197]
3103 [153]" getget[(NULL)(NULL)(NULL) verify(NULL)(NULL) (NULL)(NULL) printatnascverify(NULL)(NULL) (NULL)(NULL) printleft$chr$mid$
3104 print"[149][212][213]]][166] [208] [153][161][161][[149][214][215] [153][200][201][197] [149][214][215] [153][204][205][206]
3105 [153]"verify(NULL)(NULL) list# (NULL)(NULL)(NULL) printgetget[ (NULL)(NULL)(NULL) (NULL)
3106 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][ [208] [161][161][161][161][166][210][211]
3107 [153]"]]getget[]]]]]]getgetget[ (NULL)(NULL)(NULL) getget[]spc( verify(NULL)(NULL)print
3108 print" [161][161][ [155]# [153][161][161][161][ [161][161][ [149][214][215][153]
3109 [153]" getget[ getgetgetgetgetgetgetgetgetgetget[ getgetget[ getget[
3110 print" [161][161][ ]][161][161][161][]][161][161][161][161][161][161][161][161][161][ [161][161][
3111 [153]" getget[verify(NULL)(NULL) printgetgetget[ getgetgetgetgetgetgetgetget[ getget[
3112 print" [161][161][[149][214][215][153] ][161][161][[149][212][213][153]]]]]]]][161][161][ [161][161][
3113 [153]"list# printgetget[ atnasc getget[verify(NULL)(NULL) (NULL)(NULL)]]spc( printgetget[
3114 print" [161][161][[153][193][199][202] [161][161][ [155]# [153][161][161][ [149][214][215] [155]# #[153][161][161][
3115 [153]" getget[(NULL)(NULL)(NULL) getgetgetgetgetgetgetget[verify(NULL)(NULL)printgetgetgetgetgetgetget[
3116 print"[149][212][213][153]]][166] [208] ]]]]]]]][166][149][214][215][153][161][161][161][]]][166]
3117 [153]"verify(NULL)(NULL) (NULL)(NULL)(NULL) list# # # printgetgetget[
3118 print" [161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][ [149][212][213][153]
3119 [153]" ]]]]]]]]]]]]]]]]]]getgetget[ verify(NULL)(NULL)poke
3120 print" abmmmgh[146][153][193][195][198] [196][195][198]][161][161][ [149][212][213][155]
3121 [153]" tab(^tab(^tab(^tab(^tab( printleft$right$mid$ verify(NULL)(NULL)printleft$right$mid$ ]get[verify(NULL)(NULL) (NULL)(NULL)
3122 print" [151]o[146][190][184][190][184][190][151]p[146] [153][204][207][206] [149][214][215][153][204][205][206] ][166][149][214][215]
3123 [153]" pokeabmnmghwait (NULL) (NULL)
3124 print"bmnngh[146] [209][210][211] [209][210][211]":poke1057,15:poke1047,8
3125 goto1025
3200 rem bild 6
3201 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
3202 print"[153][193][194][198][196][194][198][196][195][197][193][195][197][193][195][198] [193][194][197][193][194][198][196][195][197][193][194][198]
3203 [153]"left$right$mid$left$(NULL)mid$(NULL)right$mid$left$(NULL)mid$left$right$mid$atnpeekvalleft$chr$mid$left$(NULL)mid$chr$right$mid$left$(NULL)mid$
3204 print"[204][205][206][204][199][206][204][205][206][204][201][206][204][205][206][204][205][206][204][207][206][204][205][206][204][199][206][204][199][206]
3205 [153]" (NULL) list#(NULL) #(NULL)# (NULL) (NULL) (NULL)# (NULL) (NULL) #(NULL) (NULL)
3206 print"[209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211][209][210][211]
3207 [153]"verify(NULL)(NULL) (NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL)
3208 print"[214][215] [214][215] [214][215][214][215][214][215] [214][215] [214][215] [155]# [149][214][215]
3209 [153]"printasc atnpeekvalatnlenvalstr$lenval str$lenvalatnpeekasc atnlenval atnpeekval
3210 print"[202] [200][201][202][200][205][202][200][199][202][149][212][213] [153][200][207][202][200][201][201] [200][199][202] [200][203][202]
3211 [153]"(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)verify(NULL)(NULL) print(NULL)chr$(NULL)(NULL)(NULL)(NULL) (NULL)chr$(NULL) (NULL)(NULL)(NULL)
3212 print" [208] [208] [208] [208] [208] [155]# [208] [208]
3213 [153]"(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)
3214 print"[153][161][161][161][161][161][161][161][161][161][161][161][[149][212][213] [153][161][161][161][161][161][161][161][161][161][161][161][161][
3215 [153]"getgetgetgetgetgetgetgetgetgetget[verify(NULL)(NULL) printgetgetget[]]]]]]]]spc(
3216 print"[161][161][]]]]][161][161][161][ [161][161][161][ [149][212][213] [212][213] [155]#[153]
3217 [153]"getget[ getgetgetgetget[ getgetget[ verify(NULL)(NULL) (NULL)(NULL)print
3218 print"[161][161][ [149][212][213][212][213][153][161][161][161][161][161][ [161][161][161][161][161][161][161][161][161][161][161][161][161][161]
3219 [153]"getget[ verify(NULL)(NULL)(NULL)(NULL)print]]]]]spc(verify(NULL)(NULL)print]]]]]]]]printgetgetget[]]
3220 print"[161][161][ [155]# [149][214][215] [155]# [153][161][161][161][
3221 [153]"getget[ getgetgetgetgetgetgetget[ getgetgetget[ str$lenval getgetget[
3222 print"[161][161][ [161][161][161][161][161][161][161][161][ ][161][161][161][ [200][203][202] [161][161][161][
3223 [153]"getget[ ]]getgetget[]]spc( getgetget[ (NULL)(NULL)(NULL) ]]]spc(
3224 print"[161][161][ [161][161][161][ [155]# [153][161][161][161][161][[155]# [153][208]":poke1057,15:poke1047,7
3225 goto1025
3300 rem bild 6
3301 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][153]";
3302 print"[151] n nghef nm m [146]
3303 [153]"m nm n n mnghwaitprintstr$peekval pokeehefkkkkwait
3304 print"kgfkkmnm nmnnmgh[146] [153][200][203][202]
3305 [153]" (NULL)peekasc pokeefkkkkkghwait print(NULL)(NULL)(NULL) verify(NULL)(NULL)printgetabsstr$lenasc
3306 print" [200][201][202] [161][161][161][161][161][161][161][161][161][161][182] [208] [149] [214][215][153][161][[200][201][202]
3307 [153]" (NULL)(NULL)sin ]]]]]]]]getget[ (NULL)(NULL)(NULL) getget[(NULL)right$(NULL)
3308 print" [208] [149][212][213][212][213] [212][213] [153][161][161][ [161][161][161][ [161][161][ [208]
3309 [153]" (NULL)(NULL)(NULL) verify(NULL)(NULL)(NULL)(NULL) (NULL)(NULL) printgetget[ getgetget[ ]get[(NULL)(NULL)(NULL)
3310 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][ [161][161][161][ [161][ [149][212][213][153]
3311 [153]"getgetget[]]]]]]]]]]]spc(verify(NULL)(NULL)printgetget[spc(verify(NULL)(NULL)printgetget[absverify(NULL)(NULL)print
3312 print"[161][161][161][ [155]### # [149][214][215][153][161][161][[155]#[149][214][215][153][161][161][161][ [155]#[153]
3313 [153]"getgetget[verify(NULL)(NULL) printgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetget
3314 print"[161][161][161][[149][214][215][153] ]]]]]]]]]]]]]]]]]]]]]]][161]
3315 [153]"getgetget[ list# verify(NULL)(NULL)list # # printget
3316 print"[161][161][161][ [149][212][213][153][161][161][161][[155]#[149][214][215][153][161][161][161][161][161][161][161][161][161][161][161][161][161][182][155]# [153][161]
3317 [153]"getgetget[ verify(NULL)(NULL)printgetgetgetgetgetgetgetgetgetgetgetgetgetget[]]getgetget[ get
3318 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][[149][212][213][153]]]][166][149][212][213][153][161]
3319 [153]"getgetget[]]]]]]]]]]]]]]]]]spc(verify(NULL)(NULL) (NULL)(NULL)printget
3320 print"[161][161][ [155]# # # [153][161][161][161][161][161][161][161][161][161]
3321 [153]"get[verify(NULL)(NULL)printgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetget[]]]]]]
3322 print"[161][[149][214][215][153]]]]]]]]]]]]]]]]]]]]][166][149][212][213] [155]# #[153]
3323 [153]"get[ list# verify(NULL)(NULL)(NULL)(NULL)print
3324 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][ [149][214][215]":poke1057,15:poke1047,8
3325 goto1025
4000 rem bild 7
4001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][149]";
4002 print"[212][213] [212][213] [212][213] [153][161][161][161][ [149][212][213]
4003 [153]"(NULL)(NULL) (NULL)(NULL) (NULL)(NULL) printgetgetget[ verify(NULL)(NULL) list# verify(NULL)(NULL)printgetgetgetgetgetget
4004 print" [161][161][161][161][161][161][182] [161][161][161][ [161][161][161][161][161][182] [149][214][215][153][161][161][161]]]]
4005 [153]" getget[]]]spc( getget[ getgetget]]spc( ]]]spc(
4006 print"[155]# [153][161][161][ [155]# # [153][161][161][ [161][161][161][[166] [155]#[153]
4007 [153]"getgetgetgetgetgetgetgetgetgetgetgetget[ getgetget[ pokeabiicdadprintwait
4008 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][ [161][161][[151]abmn nmm nii[153][146]
4009 [153]"]]]get[]]]]]]]]spc( getget[pokelmn m nverifywait
4010 print"[212][213] [153][161][ [149][212][213] [153][161][161][161][[151]efmn [149][146]
4011 [153]"(NULL)(NULL) printget[atnlenvalverify(NULL)(NULL)printstr$peekasc getget[spc( pokeln mn n printwait
4012 print" [161][161][[200][203][202] [200][201][202] [161][161][ [151]abm n n ghe[155][146]
4013 [153]" #printgetget[(NULL)(NULL)(NULL)list# print(NULL)(NULL)(NULL) getget[ pokeln mmjlistwait #
4014 print"# [153]]][166] [208] [208] [161][161][ [151]ln m gh[153][146] [196][195]
4015 [153]" getgetgetgetgetgetgetgetgetgetget[ pokel ghprintwait left$(NULL)
4016 print" [155][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163][174][163] #[153][204][205]
4017 [153]" owaitfrecosgetgetgetgetgetgetgetgetgetgetgetpokecosfrecosfrecosfrecosfrecospverifywait (NULL)
4018 print"[212][213] [153][161][161][161][161][161][161][161][161][161][]][151] mn mn nj[149][146] [209][210][211]
4019 [153]"(NULL)(NULL) print]]]getgetget[]]spc(list# pokelm n njverifywait (NULL)(NULL)
4020 print" [155]# [153][161][161][161][[155]## ##[151]efm m j[149][146] [214][215] [212][213]
4021 [153]"(NULL)(NULL) printgetgetgetgetgetget[ get[abspokeln njverifywait (NULL)(NULL)
4022 print"[214][215] [212][213] [153]]]][161][161][161][ [161][161][[151]ef cd[149][146]
4023 [153]"(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print]get[spc(list#print]]spc(verify(NULL)(NULL)pokelmm jverifywait
4024 print"[214][215] [214][215][214][215] [153][161][ [155]# ##[149][214][215][151]lm j[146]":poke1057,16:poke1047,6
4025 goto1025
5000 rem bild 8
5001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][155]";
5002 print" # [153][161][161][161][161][161][161][161][161][161][161][161][161][161][ [149][212][213][212][213][153]
5003 [153]"atnpeekascverify(NULL)(NULL)print]getgetgetgetgetgetgetgetgetget]]spc( verify(NULL)(NULL)(NULL)(NULL) printatnlenval
5004 print"[200][201][202][149][214][215] [153]]]]]]]]]]][166] [196][194][197] [200][201][202]
5005 [153]"(NULL)(NULL)(NULL) str$lenval list# ## # printleft$(NULL)mid$getgetabs (NULL)(NULL)(NULL)
5006 print" [208] [200][201][202] [149][212][213] [153][161][161][182] [204][205][206][161][161][ [208]
5007 [153]"(NULL)(NULL)(NULL) (NULL)(NULL)(NULL) verify(NULL)(NULL) printgetgetgetget[ (NULL) getgetget[ (NULL)(NULL)(NULL)
5008 print" [208] [161][161][161][161][161][161][161][161][ [209][210][211][161][161][161][161][
5009 [153]"str$lenval (NULL)(NULL)(NULL) getget[]]]getgetgetgetgetgetgetget[]]spc(
5010 print"[200][203][202][161][161][161][161][161][161][161][ [161][161][]]]][161][ [149][212][213] [212][213][153]
5011 [153]"(NULL)(NULL)(NULL)getgetgetgetgetgetget[ verify(NULL)(NULL)printgetget[ get[ verify(NULL)(NULL) (NULL)(NULL)print
5012 print" [208] ]]]]][161][161][ [149][214][215][153][161][161][ [149][212][213] [153][161][161][161][161][
5013 [153]"(NULL)(NULL)(NULL) list# printgetget[ getget[ verify(NULL)(NULL) printgetgetgetgetgetget[verify
5014 print" [212][213] [153][161][161][[149][212][213] [153][161][161][ [149][212][213][153][161][]]]][166]
5015 [153]" atnlenval verify(NULL)(NULL) printgetget[verify(NULL)(NULL) printgetget[verify(NULL)(NULL)(NULL)(NULL)printget[ list#print
5016 print" [200][201][202] [161][161][161][ [161][161][[149][214][215] [153][161][161][ [155]#[153]
5017 [153]" (NULL)mid$(NULL)getgetgetgetgetget[ list# printgetget[verify(NULL)(NULL)(NULL)(NULL)printgetget[ str$peekval
5018 print" [208] [161][161][][161][161][ [161][161][[149][214][215][214][215][153][161][161][ [204][205][206]
5019 [153]" (NULL)(NULL)(NULL)getget[ ]]spc(atnval getget[ verify(NULL)(NULL) printgetget[ (NULL)
5020 print"[196][195][197] [161][161][ [196][203][202][161][161][161][ [149][214][215] [153][161][161][161][[209][210][211]
5021 [153]"(NULL)(NULL)(NULL) getget[ list#print(NULL)(NULL)(NULL)getgetget[verify(NULL)(NULL)(NULL)(NULL)printgetgetget[
5022 print" [208] [161][[166] [208] [161][161][161][[149][214][215][214][215][153][161][161][161][
5023 [153]"(NULL)(NULL)(NULL) get[ list# print(NULL)(NULL)(NULL)getgetget[ getgetgetgetgetget[
5024 print" [161][[155]# # ##[153][161][161][161][161][161][161][161][161][161][161][161][":poke1057,17:poke1047,5
5025 goto1025
6000 rem bild 9
6001 print"[220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][220][168][149]";
6002 print"[212][213] [212][213][212][213] [153][161][161][ [149][212][213] [212][213]
6003 [153]"(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) printgetget[ verify(NULL)(NULL) list# verify(NULL)(NULL) printatnlenval
6004 print"[161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][161][182][200][207][202]
6005 [153]"getgetgetgetgetgetgetgetgetgetgetgetgetgetgetgetget[]]]]getgetget[(NULL)(NULL)(NULL)
6006 print"]]]]]]]]][161][161][161][]]]][166] [155]# [153][161][161][161][ [208]
6007 [153]" verify(NULL)(NULL) list# #printgetgetget[ verify(NULL)(NULL) (NULL)(NULL) printgetget[ (NULL)(NULL)(NULL)verify
6008 print" [212][213][214][215][153][161][161][161][161][161][161][161][ [149][214][215] [214][215] [153][161][[149]
6009 [153]" (NULL)(NULL) print]]]]getgetgetgetgetgetgetgetabs str$lenvalget[ atnlenval
6010 print"[161][161][161][161][182] [161][161][]]][161][161][ [200][203][202]][166] [200][201][202]
6011 [153]"getgetgetget[ verify(NULL)(NULL) printgetget[ verify(NULL)(NULL)print]]spc( (NULL)(NULL)(NULL) verify(NULL)(NULL)print(NULL)(NULL)(NULL)
6012 print"]][161][161][ [149][214][215] [153]]][166] [149][214][215] [155]# [208] [149][214][215] [208][153]
6013 [153]" getget[ list# # #(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)print
6014 print" [161][[166] [151]abiiicdadabiiiiiiicd[146]
6015 [153]" printget[pokeabmnmnm nm nmnmn nnmiiiiwaitlist
6016 print"# [153][161][[151]efkm n n m nmn[146][153]
6017 [153]" get[ pokeef nmn nkkmnmmknmn mn mwaitprint
6018 print" [161][161][161][161][ [151]ehefgh[146] efgh[146] ehefkkkk[146][153]
6019 [153]" getgetgetgetgetgetgetgetget[ get[ list# print getgetgetget[verify
6020 print"[212][213][153]]]]]]]][161][161][[149][212][213] [153][161][ [149][212][213][153][161][161][][166]
6021 [153]"verify(NULL)(NULL) list## # #printgetget[verify(NULL)(NULL) printgetget[ verify(NULL)(NULL)printget[
6022 print"[151]iiiiiiicbiiiiiiiiiiicd[146]
6023 [153]"mnm n nm n nm nmnmn niicdwait
6024 print" m nm nm m miiii[146]":poke1057,15:poke1047,6
6025 goto1025
9000 rem hall of fame
9002 poke53265,65:print"[147]";:printtab(14)"[149]hall of fame":print"";
9003 fort=1to10:print"";:printtab(11)"[155]"n$(t)"":print"[145][145][149]"
9004 printtab(22)hs(t)
9005 print"";:t=t+1:printtab(13)"[153]"n$(t)"":print"[145][145][149]"
9006 printtab(24)hs(t):next
9007 ifsc>hsthen9009
9008 goto9020
9009 i=0
9010 i=i+1:ifsc>hs(i)thenhb=i:goto9012
9011 goto9010
9012 fora=10toistep-1:hs(a)=hs(a-1):n$(a)=n$(a-1):nexta
9013 hs(hb)=sc:sc=0:n$(hb)=n$:print"";
9014 goto9003
9020 poke53265,155
9021 j=peek(56320):ifj=111then10000
9022 goto9021
9200 rem enter name
9201 print"[147]":poke53283,7
9202 printtab(13)"[149]congratulations"
9203 printtab(6)"[151]you are one of the best today"
9204 printtab(9)"[155]please enter your name"
9205 printtab(13)"[154][220][168][220][168][220][168][220][168][220][168][220][168][220][168]"
9206 printtab(13)"[168] [220]"
9207 printtab(13)"[220] [149]a [154][168]"
9208 printtab(13)"[168] [159]^ [154][220]"
9209 printtab(13)"[220][168][220][168][220][168][220][168][220][168][220][168][220][168]"
9210 printtab(11)"[149]your score :"sc""
9212 si=54272:pokesi+24,31:pokesi+23,243:pokesi+6,240:pokesi+13,240
9213 pokesi+5,0:pokesi+12,0
9214 pokesi+3,8:pokesi+10,8:pokesi+1,2:pokesi+8,2:pokesi,100:pokesi+7,105
9215 pokesi+4,65:pokesi+11,65:pokesi+22,0:pokesi+18,0
9220 a=65:n$="":x=15
9222 j=peek(56320)
9223 ifj=119thenx=x+1:goto9240
9224 ifj=123thenx=x-1:goto9240
9225 ifj=126thena=a+1:goto9243
9226 ifj=125thena=a-1:goto9243
9228 ifj=111then9250
9229 goto9222
9230 b=(a-64)*3:pokesi+22,b:c=a
9231 poke211,x:poke214,12:sys58640:h$=chr$(c):print"[149]"h$"";
9232 poke211,x-1:poke214,13:sys58640:print"[159] ^ ";
9233 goto9222
9240 ifx=14thenx=15:goto9230
9241 ifx=25thenx=24:goto9230
9242 c=32:goto9231
9243 ifa=64thena=65:goto9230
9244 ifa=91thena=90:goto9230
9245 goto9230
9250 d=0
9251 d=d+1:a=peek(49646+d):e=a+64:ife=96thene=32
9252 n$=n$+chr$(e):ifd=10then9254
9253 goto9251
9254 pokesi+23,240:pokesi+24,0:goto9002
10000 rem titelbild
10001 poke53281,0:print"[147][151]":poke53265,65:pokev+21,0
10002 poke53282,0:poke53283,7
10006 printtab(11)"qruwxwxu]![u[146] $%]x]x[146]*"
10007 printtab(11)"[151]stvyzyzv_#s\[146] &'^z^z[146]"
10008 print""
10009 printtab(9)"@ [149]cobra soft inc. 1988":print""
10011 printtab(7)"[151]designed and programmed by":print"";
10012 printtab(13)"[155]joerg sieslack":print""
10013 printtab(2)"[149]sprite interrupt: arnd paulsen 1988":print"";
10014 printtab(11)"[150]press fire to play":print""
10015 print" [153]hi score [149]000000 [153]stage [149]01 [153]lives [149]03"
10016 a=peek(1202):b=peek(1203):d=13
10017 y=a*25+b*200:gosub10024
10018 ifz>9999thend=10:goto10021
10019 ifz>999thend=11:goto10021
10020 ifz>99thend=12:goto10021
10021 poke211,d:poke214,22:sys58640:print"[149]"z"";
10022 poke211,d:sys58640
10023 print"[149]0";:goto10026
10024 c=peek(1200):e=peek(1201):x=c*25+e*200:ifx>ythenz=x:goto10029
10025 z=y:return
10026 sys21651:sys18633:sys21911:poke53265,155:poke54275,7:sys23172
10027 poke53265,65:poke53283,8:fori=0to24:poke54272+i,0:next:pokev+21,255
10028 goto98
10029 poke1202,peek(1200):poke1203,peek(1201):return